home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 5 / Gold Medal Software - Volume 5 (Gold Medal) (1995).iso / windows / win31 / cenviw.arj / GDI.LIB < prev    next >
Text File  |  1994-03-08  |  1KB  |  50 lines
  1. // GDI.LIB - Interfaces to some of Windows' graphics routines
  2. // ver.1
  3. //
  4. // Contributed in its initial form to the CEnvi library by Jari Karjala.
  5. // Thank you Jari.
  6.  
  7.  
  8. MoveTo(hdc, x1,y1)
  9. {
  10.    DynamicLink("GDI","MOVETO",SWORD16,PASCAL,hdc,x1,y1);
  11. }
  12.  
  13. LineTo(hdc, x1,y1)
  14. {
  15.    DynamicLink("GDI","LINETO",SWORD16,PASCAL,hdc,x1,y1);
  16. }
  17.  
  18. Rectangle(hdc, x1,y1, x2,y2)
  19. {
  20.    DynamicLink("GDI","RECTANGLE",SWORD16,PASCAL,hdc,x1,y1,x2,y2);
  21. }
  22.  
  23. RoundRect(hdc, x1,y1, x2,y2, a,b)
  24. {
  25.    DynamicLink("GDI","ROUNDRECT",SWORD16,PASCAL,hdc,x1,y1,x2,y2,a,b);
  26. }
  27.  
  28. Ellipse(hdc, x1,y1, x2,y2)
  29. {
  30.    DynamicLink("GDI","ELLIPSE",SWORD16,PASCAL,hdc,x1,y1,x2,y2);
  31. }
  32.  
  33. SelectObject(hdc, obj)
  34. {
  35.    return DynamicLink("GDI","SELECTOBJECT",SWORD16,PASCAL,hdc,obj);
  36. }
  37.  
  38. BeginPaint(WindowHandle,PaintStructBLOb)
  39. {
  40.    // Prepare window for painting and fill paint struct blob
  41.    // Return: hdc
  42.    BLObSize(PaintStructBLOb,32);
  43.    return DynamicLink("USER","BEGINPAINT",SWORD16,PASCAL,WindowHandle,PaintStructBLOb);
  44. }
  45.  
  46. EndPaint(WindowHandle,PaintStructBLOb)
  47. {
  48.    DynamicLink("USER","ENDPAINT",SWORD16,PASCAL,WindowHandle,PaintStructBLOb);
  49. }
  50.